home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / wc094c.zip / STOCKS.SCR < prev    next >
Text File  |  1993-03-03  |  970b  |  46 lines
  1. ;***********************************************************************
  2. ;       WinCIS .94
  3. ;       Copyright(C) 1992
  4. ;       Larry Lee (76670,1471)
  5. ;       16038 Augusta Drive
  6. ;      Chino Hills, Ca 91709
  7. ;***********************************************************************
  8.  
  9. ; GO FULL SCREEN
  10. WINDOWSTATE MAXIMIZE
  11.  
  12. WAIT !
  13. SEND SET BRIEF YES^M
  14. WAIT !
  15. SEND SET PAGED NO^M
  16. WAIT !
  17. SEND SET BLANK YES^M
  18. WAIT !
  19. SEND GO CIS^M
  20. WAIT !
  21.  
  22. ; Erase Exitsing File if Any
  23. KILLFILE &MessagePath\STOCKS.TXT
  24.  
  25. ; ^M^J is the same as a CRLF
  26. ; Add a Title Line
  27. PUTFILE &MessagePath\STOCKS.TXT ^M^J>>> STOCK QUOTES AS OF &DATE AT &TIME <<<^M^J^M^J
  28.  
  29. ; Start File Capture
  30. CAPTURE &MessagePath\STOCKS.TXT APPEND
  31.  
  32. ; wait for prompt
  33. SEND QUOTE HRB^M
  34. WAIT !
  35.  
  36. ; Turn Off File Capture
  37. CAPTURE OFF
  38.  
  39. ; Shrink the screen Size
  40. WINDOWSTATE MINIMIZE
  41. ; Call Notepad
  42. SHELL NOTEPAD.EXE 1 &MessagePath\STOCKS.TXT
  43.  
  44. ; Logoff CIS and Exit the Terminal Window
  45. LOGOFF
  46.